trump approval rating – time series

Abstract

Put out a timeseries graph via ggplot2plotly

library(tidyverse)  # dplyr, part of tidyverse,  has spread() & gather() 

-- Attaching packages --------------------------------------- tidyverse 1.2.1 --
v ggplot2 3.1.0     v purrr   0.2.5
v tibble  2.0.1     v dplyr   0.7.8
v tidyr   0.8.2     v stringr 1.3.1
v readr   1.3.1     v forcats 0.3.0
-- Conflicts ------------------------------------------ tidyverse_conflicts() --
x dplyr::filter() masks stats::filter()
x dplyr::lag()    masks stats::lag()

library(plotly)

Attaching package: 㤼㸱plotly㤼㸲

The following object is masked from 㤼㸱package:ggplot2㤼㸲:

    last_plot

The following object is masked from 㤼㸱package:stats㤼㸲:

    filter

The following object is masked from 㤼㸱package:graphics㤼㸲:

    layout

Data from fiveThirtyEight.com

• approval ratings
• topline

trump <- read_csv("https://projects.fivethirtyeight.com/trump-approval-data/approval_topline.csv", 
                  col_types = cols(modeldate = col_date(format = "%m/%d/%Y"), 
                                   timestamp = col_datetime(format = "%H:%M:%S %d %b %Y ")))
trump

Munge data

allpolls <- trump %>% 
  filter(subgroup == "All polls")
allpolls

ggplot

ts_4_ggpltly <- ggplot(allpolls, aes(x = modeldate)) +
  geom_line(aes(y = approve_estimate), color = "forestgreen") +
  geom_line(aes(y = disapprove_estimate), color = "firebrick")
ts_4_ggpltly

ggplotly(ts_4_ggpltly)

# Example from tk_ts documentation
data_tbl <- tibble::tibble(
    date = seq.Date(as.Date("2016-01-01"), by = 1, length.out = 5),
    x    = rep("chr values", 5),
    y    = cumsum(1:5),
    z    = cumsum(11:15) * rnorm(1))

data_tbl

tk_ts(data_tbl, start = 2016)

# Working but the x axis is bonk
ap_4_dy <- allpolls %>% 
  select(modeldate, approve_estimate, disapprove_estimate) %>% 
  tk_ts(start = 20170201) 

ap_4_dy <- allpolls %>% 
  select(modeldate, approve_estimate, disapprove_estimate) %>% 
  #tk_ts()
  tk_ts(start = 2017, freq = 365) 

ap_4_dy

#idx <- tk_index(allpolls)

This is what was working, even with the bonk x axis
ap_4_dy %>% 
  dygraph() %>% 
  dyRangeSelector(dateWindow = c("2017-02-01", "2018-11-30"))

# from dygraph documentation
class(mdeaths)
head(mdeaths)
lungDeaths <- cbind(mdeaths, fdeaths)
dygraph(lungDeaths)